home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / data / fapx / fapxhelp.plp < prev    next >
Text File  |  1994-11-16  |  3KB  |  139 lines
  1. /*    FAPXの説明を表示する    */
  2. %NOTE    {
  3.     [file];
  4.     case    (@mlast==9,
  5.         {Yes},
  6.         {
  7.         select    ({メモ９を削除してもいいですか？},
  8.             Wtime4,,
  9.             {  は  い  },{NOTE1(file)},
  10.             {  いいえ  },
  11.             );
  12.         },
  13.         {No},{NOTE1(file)}
  14.         );
  15.     };
  16.  
  17. %NOTE1    {
  18.     [file];
  19.     var    MEMO    [1];
  20.     case    (@mlast==9,
  21.         {Yes},
  22.         {InactMemo;mclear(MEMO)},
  23.         {No},
  24.         {
  25.         MEMO:=@mlast+1;
  26.         InactMemo;
  27.         madd(MEMO,{\n});
  28.         mclear(MEMO);
  29.         });
  30.     case    (@filechk(CDIR2|{FAPX}|VL|{.}|file),
  31.         {Yes},{mread(CDIR2|{FAPX}|VL|{.}|file,MEMO)});
  32.     mopen(MEMO,0,21,639,459,{r});
  33.     loop    ({
  34.         footnote({終了},{b});
  35.         waitx    ();
  36.         case    (@xtype,
  37.             101,{DeleteMemo(MEMO);im({No})},
  38.             201,{DeleteMemo(MEMO);im({No})},
  39.             ,{im({Yes})}
  40.             );
  41.         });
  42.     };
  43.  
  44. /*    FAPXｵﾝﾗｲﾝﾏﾆｭｱﾙを表示する    */
  45. %ONLMAN    {
  46.     case    (@mlast>6,
  47.         {Yes},
  48.         {
  49.         select    ({メモ７～９を削除してもいいですか？},
  50.             Wtime4,,
  51.             {  は  い  },{ONLMAN1},
  52.             {  いいえ  },
  53.             );
  54.         },
  55.         {No},{ONLMAN1}
  56.         );
  57.     };
  58.  
  59. %ONLMAN1{
  60.     var    MEMO    [1];
  61.     case    (@mlast>6,{Yes},{MEMO:=7},{No},{MEMO:=@mlast+1});
  62.     CloseAllMemo;
  63.     madd(MEMO,{\n});
  64.     mclear(MEMO);
  65.     case    (@filechk(CDIR2|{FAPX001.MAN}),
  66.         {Yes},{mread(CDIR2|{FAPX001.MAN},MEMO)});
  67.     madd(MEMO+1,{\n});
  68.     mclear(MEMO+1);
  69.     case    (@filechk(CDIR2|{FAPX002.MAN}),
  70.         {Yes},{mread(CDIR2|{FAPX002.MAN},MEMO+1)});
  71.     madd(MEMO+2,{\n});
  72.     mclear(MEMO+2);
  73.     case    (@filechk(CDIR2|{FAPX003.MAN}),
  74.         {Yes},{mread(CDIR2|{FAPX003.MAN},MEMO+2)});
  75.     mopen(MEMO,0,21,639,459,{r});
  76.     loop    ({
  77.         footnote({終了　　導入通信ﾌｧｲﾙ},{b});
  78.         waitx    ();
  79.         case    (@xtype,
  80.             101,{DeleteMemo(MEMO);im({No})},
  81.             201,{DeleteMemo(MEMO);im({No})},                        103,
  82.             {
  83.             InactMemo;
  84.             mopen(MEMO,0,21,639,459,{r});
  85.             im({Yes});
  86.             },
  87.             203,
  88.             {
  89.             InactMemo;
  90.             mopen(MEMO,0,21,639,459,{r});
  91.             im({Yes});
  92.             },
  93.             104,
  94.             {
  95.             InactMemo;
  96.             mopen(MEMO+1,0,21,639,459,{r});
  97.             im({Yes});
  98.             },
  99.             204,
  100.             {
  101.             InactMemo;
  102.             mopen(MEMO+1,0,21,639,459,{r});
  103.             im({Yes});
  104.             },
  105.             105,
  106.             {
  107.             InactMemo;
  108.             mopen(MEMO+2,0,21,639,459,{r});
  109.             im({Yes});
  110.             },
  111.             205,
  112.             {
  113.             InactMemo;
  114.             mopen(MEMO+2,0,21,639,459,{r});
  115.             im({Yes});
  116.             },
  117.             ,{im({Yes})}
  118.             );
  119.         });
  120.     };
  121.  
  122. /*    表示ファイルの選択    */
  123. %NOTEsel{
  124.     loop    ({
  125.         footnote({表示するファイルを選んでください});
  126.         SNDMSG({erande_f.snd});
  127.         select    ({表示するファイルを選んでください},
  128.             Wtime4,{im({No})},
  129.             { バージョンアップの概要 },{NOTE({VUP});im({Yes})},
  130.             {  ドキュメントファイル  },{NOTE({DOC});im({Yes})},
  131.             {    オンラインヘルプ    },{NOTE({HLP});im({Yes})},
  132.             {    ビギナーズガイド    },{ONLMAN;im({Yes})},
  133.             {       終      了       },{im({No})}
  134.             );
  135.         });
  136.     };
  137.  
  138. NOTEsel;
  139.